home *** CD-ROM | disk | FTP | other *** search
- 10 ;BAM TABLES
- 20 SCREEN LDA #<HDR
- 30 STA $FB
- 40 LDA #>HDR
- 50 STA $FC
- 60 LDY #$00
- 70 HDRLP LDA ($FB),Y
- 80 BEQ HDREND
- 90 JSR PRINT
- 100 JSR INCFB
- 110 JMP HDRLP
- 120 HDREND RTS
- 130 INCFB INC $FB
- 140 BNE INC1
- 150 INC $FC
- 160 INC1 RTS
- 170 HDR .B 147 158
- 180 .B " [194]AM [205]AP
- 190 .B 13 13 159
- 200 .B " PEEKY
- 210 .B 13 13 154
- 220 .B " [205]L [194]UG
- 230 .B 13 13 156
- 240 .B " (LEN) LENOPYRIGHT 1987
- 250 .B 13 13 129
- 260 .B " [193]LL [210]IGHTS [210]ESERVED
- 270 .B 13 13 153
- 280 .B " (null)UT DISK IN DRIVE 8 TO VIEW BAM MAP
- 290 .B 13 13
- 300 .B " [208]RESS RETURN WHEN READY
- 310 .B 13 13 30
- 320 .B " 1541 FORMATED DISKS ONLY
- 330 .B 13 13 0
- 340 MW .BYTE "M-W:.BYTE 06 00 02 18 00
- 350 MW1 .BYTE "M-W:.BYTE 00 00 01 128
- 360 MR .BYTE "M-R:.BYTE 00 00 01
- 370 MR1 .BYTE "M-R:.BYTE 04 03 140
- 380 BOUND .BYTE 04 36 31 25 18
- 390 TOTAL .BYTE 17 18 19 21
- 400 A .BYTE 0
- 410 X .BYTE 0
- 420 Y .BYTE 0
- 430 ERR .BYTE 0
- 440 TRK .BYTE 0
- 450 SEC .BYTE 0
- 460 BITBUF .BYTE 0 0
- 470 CTR .BYTE 0
- 480 CTR1 .BYTE 0
- 490 ;*= $7200
- 500 BAMBUF .BYTE 0
- 510 .END BAM EQ
-